#!/usr/bin/wish

frame .c
frame .c.f -borderwidth 5 -relief sunken -width 200 -height 100
label .c.namelbl -text "Name"
entry .c.name
# checkbutton .c.one -text "One" -variable one
checkbutton .c.one -text "One" -variable one -onvalue "English" -offvalue "Chinese"; set one "English"
checkbutton .c.two -text "Two" -variable two ; set two 0
checkbutton .c.three -text "Three"
button .c.ok -text OK -command "test_proc"
button .c.cancel -text Cancel



grid .c -column 0 -row 0
grid .c.f -column 0 -row 0 -columnspan 3 -rowspan 2
grid .c.namelbl -column 3 -row 0 -columnspan 2
grid .c.name -column 3 -row 1 -columnspan 2
grid .c.one -column 0 -row 2
grid .c.two -column 1 -row 2
grid .c.three -column 2 -row 2
grid .c.ok -column 3 -row 2
grid .c.cancel -column 4 -row 2

# grid [ttk::button .bt -text "test"] -column 0 -row 3 -columnspan 5

# procedures 
proc test_proc {} {
	global one
	puts "value of checkbox one is $one"
}
